(font-menu-add-default): New function.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 3fb7c173621f32baf4123d6dcce9861ae6d6bd23..b3ce6da6688f82b070b3d25d4d43a077cb52795d 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -865,6 +865,17 @@ and selects that window."
 \f
 ;; Font selection.
 
+(defun font-menu-add-default ()
+  (let* ((default (cdr (assq 'font (frame-parameters (selected-frame)))))
+        (font-alist x-fixed-font-alist)
+        (elt (assoc "Misc" font-alist)))
+    (if (assoc "Default" elt)
+       (delete (assoc "Default" elt) elt))
+    (setcdr elt
+           (cons (cons "Default"
+                       (cdr (assq 'font (frame-parameters (selected-frame)))))
+                 (cdr elt)))))
+
 (defvar x-fixed-font-alist
   '("Font menu"
     ("Misc"